home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 6: Level 6 / 17 Bit - Level 6 (1998)(Epic Marketing)[!].iso / quartz / q1100.dms / q1100.adf / TeleBASE / rexx / save_calls.rexx < prev    next >
OS/2 REXX Batch file  |  1997-04-10  |  800b  |  26 lines
  1. /* 
  2. ** Ensure all incoming calls are
  3. ** kept in the database.  Remove the
  4. ** comment at SAVE, to have TeleBASE
  5. ** save the data file after each call.
  6. **/
  7.  
  8. address TBASE             /* Talk to TeleBASE */
  9.  
  10. SHOWMAIN                  /* Pop main window to front */
  11.  
  12. GETVAR                    /* Find out how many calls there are */
  13.  
  14. CALLNUM = NUMCALLS        /* Make the current one, the latest  */
  15.  
  16. SENDVARS                  /* Tell TeleBASE about it.           */
  17.  
  18. ADDCALL                   /* Adds the call to the database, or
  19.                           ** goes to it.... 
  20.                           */
  21. TAG                       /* Tag it                            */
  22.  
  23. SAVE                      /* Saves the database under the current
  24.                           ** name.
  25.                           */
  26.